open FrGui_common

type 'a size_constraint =
	(*| Equal of *)Gtk.size_group

type width_constraint = [ `Horizontal ] size_constraint
type height_constraint = [ `Vertical ] size_constraint

let size_constraint direction =
	GtkPack.SizeGroup.create [Gobject.param GtkPack.SizeGroup.P.mode (gtk_orientation direction)]

let width_constraint () =
	size_constraint `Horizontal

let height_constraint () =
	size_constraint `Vertical
